home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / Shaders / RCShaders / RCMatte.sl < prev    next >
Encoding:
Text File  |  1995-03-22  |  208 b   |  14 lines
  1. /*
  2.  *  matte(): simple diffusely-reflecting surface
  3.  */
  4. surface
  5. RCMatte(
  6.     float    Ka    = 1, 
  7.         Kd    = 1 )
  8. {
  9.     point Nf = faceforward(normalize(N),I);
  10.  
  11.     Oi = Os;
  12.     Ci = Os * Cs * ( Ka*ambient() + Kd*diffuse(Nf) ) ;
  13. }
  14.